Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crispy/pfield.frm

Visual Basic Form | 1995-05-08 | 8.5 KB | 307 lines

VERSION 2.00
Begin Form PField
   BackColor       =   &H00008000&
   Caption         =   "Kings on Top, Queens on the Side, and Jacks in the Corners"
   ClientHeight    =   2430
   ClientLeft      =   60
   ClientTop       =   2745
   ClientWidth     =   9600
   DrawMode        =   10  'Not Xor Pen
   Height          =   3120
   Icon            =   PFIELD.FRX:0000
   Left            =   0
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   2430
   ScaleWidth      =   9600
   Top             =   2115
   Width           =   9720
   Begin CommandButton Click3
      Caption         =   "New Game"
      Height          =   735
      Left            =   8040
      TabIndex        =   3
      Top             =   5640
      Width           =   1335
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   15
      Left            =   4440
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   18
      Top             =   4800
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   14
      Left            =   3120
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   17
      Top             =   4800
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   13
      Left            =   1800
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   16
      Top             =   4800
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   12
      Left            =   480
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   15
      Top             =   4800
      Width           =   1095
   End
   Begin CommandButton Click2
      Caption         =   "Deal Cards"
      Height          =   735
      Left            =   8040
      TabIndex        =   19
      Top             =   3600
      Width           =   1335
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   11
      Left            =   4440
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   14
      Top             =   3240
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   10
      Left            =   3120
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   13
      Top             =   3240
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   9
      Left            =   1800
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   12
      Top             =   3240
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   8
      Left            =   480
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   11
      Top             =   3240
      Width           =   1095
   End
   Begin PictureBox OldCards
      BackColor       =   &H00FFFFFF&
      Height          =   1455
      Left            =   8160
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   2
      Top             =   1800
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   7
      Left            =   4440
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   10
      Top             =   1680
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   6
      Left            =   3120
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   9
      Top             =   1680
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   5
      Left            =   1800
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   8
      Top             =   1680
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   4
      Left            =   480
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   7
      Top             =   1680
      Width           =   1095
   End
   Begin PictureBox NewCards
      BackColor       =   &H00FFFFFF&
      Height          =   1455
      Left            =   8160
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   3
      Left            =   4440
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   6
      Top             =   120
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   2
      Left            =   3120
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   5
      Top             =   120
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   6  'Invert
      Height          =   1455
      Index           =   1
      Left            =   1800
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   4
      Top             =   120
      Width           =   1095
   End
   Begin PictureBox Picture1
      BackColor       =   &H00FFFFFF&
      DrawMode        =   7  'Xor Pen
      FillColor       =   &H003F3F3F&
      FillStyle       =   0  'Solid
      Height          =   1455
      Index           =   0
      Left            =   480
      ScaleHeight     =   1425
      ScaleWidth      =   1065
      TabIndex        =   0
      Top             =   120
      Width           =   1095
   End
   Begin Menu Game
      Caption         =   "&Game"
      Begin Menu NewDeal
         Caption         =   "&New Game"
      End
      Begin Menu CardBacks
         Caption         =   "&Card Backs"
      End
      Begin Menu DCtl1
         Caption         =   "-"
      End
      Begin Menu CtlExit
         Caption         =   "&Exit"
      End
   End
   Begin Menu HelpBar
      Caption         =   "&Help"
      Begin Menu Shelp
         Caption         =   "&Solitaire Help"
      End
      Begin Menu CAbout
         Caption         =   "&About"
      End
   End
DefInt A-Z
Sub CAbout_Click ()
  LoadAbout
End Sub
Sub CardBacks_Click ()
  LoadCardBack
End Sub
Sub Click2_Click ()
   DealCards
End Sub
Sub Click3_Click ()
   NewGame
End Sub
Sub CtlExit_Click ()
   AppExit
End Sub
Sub Form_Load ()
   Init
End Sub
Sub Form_Paint ()
   PaintPfield
End Sub
Sub Form_Unload (Cancel As Integer)
   WriteProfile
End Sub
Sub NewDeal_Click ()
   NewGame
End Sub
Sub Picture1_Click (Index As Integer)
   Engine Index
End Sub
Sub Shelp_Click ()
   LoadHelp
End Sub